Sub TotalQuantity()
    Dim Ws As Worksheet, Sh As Worksheet
    Dim Cel As Range, FoundIt As Range, X, Y

    Set Ws = Sheets(" ")

    Application.ScreenUpdating = False
        For Each Cel In Ws.Range("B2:B" & Ws.Cells(Rows.Count, 2).End(xlUp).Row)
            For Each Sh In ThisWorkbook.Worksheets
                If Sh.Name <> "" And Sh.Name <> "" And Sh.Name <> "  " And Sh.Name <> " " And Sh.Name <> "" Then
                    Set FoundIt = Sh.Columns("B:B").Find(What:=Cel.Value, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not FoundIt Is Nothing Then
                        X = FoundIt.Offset(, 1)
                        Y = Application.WorksheetFunction.Sum(X, Y)
                    End If
                End If
            Next Sh
            
            Cel.Offset(, 1).Value = Y
            Y = 0
        Next Cel
    Application.ScreenUpdating = True
    
    Set Ws = Nothing
    Set Sh = Nothing
    Set FoundIt = Nothing
End Sub